home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO65.LSP < prev    next >
Text File  |  1986-08-30  |  2KB  |  60 lines
  1. (Graphscr)
  2. (Defun C:Plist () (Setvar "Cmdecho" 0)
  3.     (Setq F (Getvar "Blipmode"))
  4.     (Setvar "Blipmode" 0)
  5.     (Setq A (Getreal "\nScaling factor: 1="))
  6.     (Setq B (Getint "\nEnter number of items in list: "))
  7.     (Setq P1 (Osnap (Getpoint
  8.         "\nTouch upper right corner of drawing: ")"End"))
  9.     (Command "Insert" "*Plist" P1 (/ A 1) "" "0")
  10.     (Setq P1 (List (- (Car P1) (* 0.34375 A))
  11.         (- (Cadr P1) (* 0.31250 A))))
  12.     (Setq P2 (list (- (Car P1)
  13.         (* 5.09375 A)) (Cadr P1)))
  14.     (Setq P3 (List (- (Car P2) (* 1.00 A)) (Cadr P2)))
  15.     (Setq P4 (List (- (Car P3)
  16.         (* 0.4375 A)) (Cadr P3)))
  17.     (Setq P5 (List (- (Car P4) (* 0.625 A))
  18.         (+ (Cadr P4) (* 0.3125 A))))
  19.     (Setq A1 (* 1.5 PI)) (Setq D (* 0.25 A))
  20.     (Setq E (+ (* 0.3125 A) (* D B)))
  21.     (Command "Line" P1 (Polar P1 A1 E) "")
  22.     (Command "Line" P2 (Polar P2 A1 E) "")
  23.     (Command "Line" P3 (Polar P3 A1 E) "")
  24.     (Command "Line" P4 (Polar P4 A1 E) "")
  25.     (Command "Line" P5 (Polar P5 A1
  26.         (+ (* 0.625 A) (* D B))) "")
  27.     (Setq P1 (Polar P5 A1 (* 0.875 A)))
  28.     (Command "Line" P1 (Polar P1 0 (* 7.5 A)) "")
  29.     (Command "Array" "L" "" "R" B "" (* -1 D))
  30.     (Setq P1 (List (+ (Car P1) (* 0.3125 A))
  31.         (+ (Cadr P1) (* 0.0625 A))))
  32.     (Setq P2 (Polar P1 0 (* 0.53125 A)))
  33.     (Setq P3 (Polar P2 0 (* 0.71875 A)))
  34.     (Setq P4 (Polar P3 0 (* 0.5625 A)))
  35.     (Setq P5 (Polar P4 0 (* 5.203125 A)))
  36.     (Setq C 1)
  37.     (Repeat B
  38.         (Command "Text" "C" P1 (* 0.125 A) "0" (Itoa C))
  39.         (Prompt "\nQuantity for item ")
  40.          (Princ C) (Prompt ": ") (Setq Text (Read-line))
  41.          (Command "Text" "C" P2 (* 0.125 A) "0" Text)
  42.         (Prompt "\nPart number for item ")
  43.          (Princ C) (Prompt ": ") (Setq Text (Read-Line))
  44.          (Command "Text" "C" P3 (* 0.125 A) "0" Text)
  45.         (Prompt "\nDescription for item ")
  46.          (Princ C) (Prompt ": ") (Setq Text (Read-Line))
  47.          (Command "Text" P4 (* 0.125 A) "0" Text)
  48.         (Prompt "\nDrawing size for item ")
  49.          (Princ C) (Prompt ": ") (Setq Text (Read-Line))
  50.          (Command "Text" P5 (* 0.125 A) "0" Text)
  51.         (Setq P1 (List (Car P1) (- (Cadr P1) D)))
  52.         (Setq P2 (List (Car P2) (- (cadr P2) D)))
  53.         (Setq P3 (List (Car P3) (- (cadr P3) D)))
  54.         (Setq P4 (List (Car P4) (- (cadr P4) D)))
  55.         (Setq P5 (List (Car P5) (- (cadr P5) D)))
  56.         (Setq C (+ 1 C))
  57.     )
  58.     (SetVar "Blipmode" F)
  59. )
  60.